home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 019a / amac40.zip / DATE13.QM < prev    next >
Text File  |  1991-07-12  |  26KB  |  557 lines
  1. *                              DATE13.QM, v1.3a
  2. *                         Written By Tom Hogshead
  3. *          With Macro Contributions By Tim Farley and Mel Hulse
  4. *                             July 12, 1991
  5. *
  6. * ┌───────────────────────────  (Index ) ────────────────────────────────────┐
  7. * │ @(1) Date in English <March 9, 1991> not <Sat  03-09-1991>
  8. * │
  9. * │ @(2) Time in Standard <5:26 pm>, not Military <17:26:37>
  10. * │
  11. * │*@(3) Date and time in following format (Tim Farley author)......
  12. * │   <■ Written in Fairview, NJ ■  Friday, September 14th, 1990 at 9:50 pm.>
  13. * │
  14. * │ @(4) Name_date <Tom Hogshead,   Thursday, April 11, 1991 at 4:01 pm>
  15. * │
  16. * │*@(5) Date in English <Sunday, March 31, 1991 at 4:43 pm> by M Hulse
  17. * │
  18. * │ @(h) Finds first word on cursor line marked in document below
  19. * │
  20. * │     ****** @3 and @5 commented out to fit 2k macro limititation ******
  21. * │
  22. * │ (Index) Use
  23. * │ (Version) History
  24. * │
  25. * └────────[ be sure to leave at least one blank line at end of Index ]──────┘
  26.  
  27.  
  28. * (Index) Use;
  29. *
  30. * To locate a macro or item in this file, press @h, place the cursor
  31. * line on the desired item in the Index above, and press <enter>.
  32. * See BOOKxx.QM for more details.
  33.  
  34.  
  35.  
  36.  
  37. * ---------------------------------------------------------------------
  38. * @(1) Date in English "March 9, 1991", not "Sat  03-09-1991"
  39. * ---------------------------------------------------------------------
  40. *
  41. * This macro is based on the technique used by Tim Farley in his
  42. * macro in message #2953 on SemWare ILink Conference 21, dated 9/17/90
  43. * and included below as @3.
  44. *
  45. @1 MacroBegin
  46.         UnmarkBlock                     * Insert and mark date
  47.         DropAnchor InsertDate           *            "
  48.         DropAnchor                      *            "
  49.         GotoBlockBeg DelRtWord          * Remove day name
  50.         FindReplace "-" Return          * Replace both "-" with "- "
  51.         "- " Return "LN" Return         * 
  52.         GotoBlockBeg                    * Put cursor on month #
  53.         Find Return Return              * Find first dash
  54.         MarkColumn                      * Mark month number with "-"
  55.         CursorLeft CursorLeft CursorLeft*            "
  56.         MarkColumn                      *            "
  57.         FindReplace Return              * Remove first dash
  58.         Delline Return "LN" Return      *            "
  59. *------------- Replace Month number with Name  ----------------*
  60.   FindReplace"01" Return "January"   Return "LN" Return *Jtrue NODASH: |
  61.   FindReplace"02" Return "February"  Return "LN" Return *Jtrue NODASH: |
  62.   FindReplace"03" Return "March"     Return "LN" Return *Jtrue NODASH: |
  63.   FindReplace"04" Return "April"     Return "LN" Return *Jtrue NODASH: |
  64.   FindReplace"05" Return "May"       Return "LN" Return *Jtrue NODASH: |1.3
  65.   FindReplace"06" Return "June"      Return "LN" Return *Jtrue NODASH: |
  66.   FindReplace"07" Return "July"      Return "LN" Return *Jtrue NODASH: |
  67.   FindReplace"08" Return "August"    Return "LN" Return *Jtrue NODASH: |
  68.   FindReplace"09" Return "September" Return "LN" Return *Jtrue NODASH: |
  69.   FindReplace"10" Return "October"   Return "LN" Return *Jtrue NODASH: |
  70.   FindReplace"11" Return "November"  Return "LN" Return *Jtrue NODASH: |
  71.   FindReplace"12" Return "December"  Return "LN" Return
  72.  NODASH:
  73.         MarkLine
  74. *--------- Replace Dash after Day Number with comma ----------*
  75.         FindReplace "-" Return "," Return "LN" Return
  76. *--------- Remove Zero in Day Number -------------------------*
  77.         FindReplace " 0" Return " " Return "LN" Return
  78.         Find "," Return "LN" Return     * Find comma
  79.         WordRight WordRight "  "        * Put 2 spaces after year |1.2
  80.         UnmarkBlock                     * Unmark
  81. *
  82. * 408 bytes Thu  03-21-1991  04:57:30
  83. * 410 bytes Mon  04-01-1991  10:42:59 put 2 spaces after year
  84. * 377 bytes Thu  04-11-1991  16:08:44 removed jtrue NODASH
  85.  
  86.  
  87.  
  88. * ----------------------------------------------------------------------
  89. * @(2) Time in Standard '5:26 pm', not Military '17:26:37'
  90. * ----------------------------------------------------------------------
  91. *
  92. * This macro is "lifted" from Tim Farley's @3 below with changes noted.
  93. * It will work if run with cursor between text but spacing will be
  94. * different than if not. This macro can be added to the end of @1 for
  95. * 'April 1, 1991  10:59 am '.
  96. *
  97. @2 Macrobegin
  98.         UnMarkBlock InsertTime " " CursorLeft               *| TH
  99.         Backspace Backspace Backspace Backspace             
  100.         CursorLeft CursorLeft CursorLeft CursorLeft CursorLeft
  101.         DropAnchor DropAnchor
  102.         FindReplace "0" Return "0" Return "ln" Return
  103.         JFalse after10:
  104.         DelCh
  105.         Jump am:
  106.       after10:
  107.         CursorRight DropAnchor CursorLeft
  108.         FindReplace "10" Return "10" Return "ln" Return
  109.         JTrue am:
  110.         FindReplace "11" Return "11" Return "ln" Return
  111.         JTrue am:
  112.         FindReplace "13" Return "1"  Return "ln" Return
  113.         FindReplace "14" Return "2"  Return "ln" Return
  114.         FindReplace "15" Return "3"  Return "ln" Return
  115.         FindReplace "16" Return "4"  Return "ln" Return
  116.         FindReplace "17" Return "5"  Return "ln" Return
  117.         FindReplace "18" Return "6"  Return "ln" Return
  118.         FindReplace "19" Return "7"  Return "ln" Return
  119.         FindReplace "20" Return "8"  Return "ln" Return
  120.         FindReplace "21" Return "9"  Return "ln" Return
  121.         FindReplace "22" Return "10" Return "ln" Return
  122.         FindReplace "23" Return "11" Return "ln" Return
  123.         Jump pm:
  124.       am:
  125.         WordRight WordRight " am "                          *| TH
  126.         Jump end:
  127.       pm:
  128.         WordRight WordRight " pm "                          *| TH
  129.       end:
  130.         UnmarkBlock
  131. *
  132. *265 bytes Mon  04-01-1991  10:47:26
  133.  
  134.  
  135.  
  136. * ---------------------------------------------------------------------
  137. * @(3) Date and time in following format (Tim Farley author)......
  138. * "■ Written in Fairview, NJ ■  Friday, September 14th, 1990 at 9:50 pm."
  139. * ---------------------------------------------------------------------
  140. * ======================================================================
  141. * Date: 09-17-90 (14:08)           Number: 2953      SemWare Support BBS
  142. *   To: JOE MARTELLA               Refer#: 2945
  143. * From: TIM FARLEY                   Read: YES
  144. * Subj: Qedit and EZ-Reader          Conf: (21) ILink
  145. * ------------------------------------------------------------------------
  146. * JM>Message Entered On Fri  09-14-1990   At 21:49:29
  147. * JM>
  148. * JM>The only problem with this method is personal taste.  I like to
  149. * JM>message to show the time in standard AM and PM (See Below),
  150. * JM>rather than in military time.
  151. *
  152. * JM> ■ Written in Fairview, NJ ■  Friday, September 14th, 1990 at 9:50 pm.
  153. *
  154. * You could do this with some clever macro foolishness.  Here is one of
  155. * the longest macros I have ever written for anyone:
  156. *
  157. * *
  158. * *  Display the time in AM/PM format instead of Military
  159. * *
  160. * @3    MacroBegin
  161. *         *
  162. *         * Setup signature line:
  163. *         *
  164. *         EndFile AddLine BegLine
  165. *         " ■ Written in Fairview, NJ ■  "
  166. *         *
  167. *         * Rest of this is just to massage the date:
  168. *         *
  169. *         UnmarkBlock
  170. *         DropAnchor InsertDate DropAnchor
  171. *         GotoBlockBeg
  172. *         FindReplace "Mon" Return "Monday,"    Return "ln" Return
  173. *         FindReplace "Tue" Return "Tuesday,"   Return "ln" Return
  174. *         FindReplace "Wed" Return "Wednesday," Return "ln" Return
  175. *         FindReplace "Thu" Return "Thursday,"  Return "ln" Return
  176. *         FindReplace "Fri" Return "Friday,"    Return "ln" Return
  177. *         FindReplace "Sat" Return "Saturday,"  Return "ln" Return
  178. *         FindReplace "Sun" Return "Sunday,"    Return "ln" Return
  179. *         Find "-" Return Return
  180. *         CursorLeft CursorLeft CursorLeft
  181. *         FindReplace " 01-" Return " January  "  Return "ln" Return
  182. *         FindReplace " 02-" Return " February "  Return "ln" Return
  183. *         FindReplace " 03-" Return " March "     Return "ln" Return
  184. *         FindReplace " 04-" Return " April "     Return "ln" Return
  185. *         FindReplace " 05-" Return " May "       Return "ln" Return
  186. *         FindReplace " 06-" Return " June "      Return "ln" Return
  187. *         FindReplace " 07-" Return " July "      Return "ln" Return
  188. *         FindReplace " 08-" Return " August "    Return "ln" Return
  189. *         FindReplace " 09-" Return " September " Return "ln" Return
  190. *         FindReplace " 10-" Return " October "   Return "ln" Return
  191. *         FindReplace " 11-" Return " November "  Return "ln" Return
  192. *         FindReplace " 12-" Return " December "  Return "ln" Return
  193. *         DelCh
  194. *         FindReplace "-" Return "th, " Return "ln" Return
  195. *         GotoBlockEnd Backspace Backspace
  196. *         "at " UnMarkBlock
  197. *         InsertTime Backspace Backspace Backspace Backspace
  198. *         CursorLeft CursorLeft CursorLeft CursorLeft CursorLeft
  199. *         DropAnchor DropAnchor
  200. *         FindReplace "0" Return "0" Return "ln" Return
  201. *         JFalse after10:
  202. *         DelCh
  203. *         Jump am:
  204. *       after10:
  205. *         CursorRight DropAnchor CursorLeft
  206. *         FindReplace "10" Return "10" Return "ln" Return
  207. *         JTrue am:
  208. *         FindReplace "11" Return "11" Return "ln" Return
  209. *         JTrue am:
  210. *         FindReplace "13" Return "1"  Return "ln" Return
  211. *         FindReplace "14" Return "2"  Return "ln" Return
  212. *         FindReplace "15" Return "3"  Return "ln" Return
  213. *         FindReplace "16" Return "4"  Return "ln" Return
  214. *         FindReplace "17" Return "5"  Return "ln" Return
  215. *         FindReplace "18" Return "6"  Return "ln" Return
  216. *         FindReplace "19" Return "7"  Return "ln" Return
  217. *         FindReplace "20" Return "8"  Return "ln" Return
  218. *         FindReplace "21" Return "9"  Return "ln" Return
  219. *         FindReplace "22" Return "10" Return "ln" Return
  220. *         FindReplace "23" Return "11" Return "ln" Return
  221. *         Jump pm:
  222. *       am:
  223. *         EndLine " am."
  224. *         Jump end:
  225. *       pm:
  226. *         EndLine " pm."
  227. *       end:
  228. *         UnmarkBlock
  229. * *
  230. * 966 bytes Mon  09-17-1990  19:23:56 (added TH)
  231. *
  232. * This macro is too big for QCONFIG, you must use QMAC.  It's also too big
  233. * to use the /E parameter to autoexec it---you will have to hit the key
  234. * manually.  But it does the job.  You'll need QEdit 2.1 to handle this
  235. * macro.
  236. *
  237. * The only weirdness is that it always puts "th" after the date, which is
  238. * weird on some dates.  You might just want to take that part out.
  239. *
  240. * --Tim Farley
  241. *   SemWare Technical Support
  242.  
  243.  
  244.  
  245. * ==============================================================================
  246. * Date: 04-07-91 (01:43)           Number: 2337         SemWare Support BBS
  247. *   To: TOM HOGSHEAD               Refer#: NONE
  248. * From: MEL HULSE                    Read: NO
  249. * Subj: Date/Time in a Macro #1      Conf: (22) RelayNet
  250. * ------------------------------------------------------------------------
  251. * Joe Morlan asked for a date/time macro.  We have deluged him with
  252. * the developing fancy macro.  I promised the complete thing this
  253. * weekend.  Here it is. Two messages long!  Try it out.
  254. *
  255. *
  256. * * ---------------------------------------------------------------------
  257. * * @(5)  Date in English "Sunday, March 31, 1991 at 4:43 pm",
  258. * *       not "Sun  03-31-1991  16:43:38 "
  259. * *       Start with cursor where you want the date and time to begin.
  260. * *       Rev 1.2 by Mel Hulse
  261. * * ---------------------------------------------------------------------*
  262. * *
  263. * * This macro is based on the techniques used by Tim Farley.
  264. * * and uploaded by Patrick Pluto
  265. * *
  266. * @5  MacroBegin          * Change @5 to key you want
  267. *     UnmarkBlock         * Housekeeping
  268. *     DefaultWordSet      *      "
  269. *     InsertDate          * Places system date at the cursor position
  270. *     PrevPosition        * Goto front of date string
  271. * *------ vvvv If you don't want day spelled out, DELETE FROM HERE ----*
  272. *     MarkWord            * Mark the abreviated day
  273. * *------ Replace Day with spelled out name within the marked block----*
  274. *     FindReplace"Mon" Return "Monday, "    Return "LN" Return *Jtrue Month:
  275. *     FindReplace"Tue" Return "Tuesday, "   Return "LN" Return *Jtrue Month:
  276. *     FindReplace"Wed" Return "Wednesday, " Return "LN" Return *Jtrue Month:
  277. *     FindReplace"Thu" Return "Thursday, "  Return "LN" Return *Jtrue Month:
  278. *     FindReplace"Fri" Return "Friday, "    Return "LN" Return *Jtrue Month:
  279. *     FindReplace"Sat" Return "Saturday, "  Return "LN" Return *Jtrue Month:
  280. *     FindReplace"Sun" Return "Sunday, "    Return "LN" Return
  281. *   Month:                 * Target for jump
  282. * *--------------------------------------------------------------------*
  283. *     GotoBlockEnd        * Goto the 2 spaces after the day
  284. * *------ ^^^^ TO HERE,  ----------------------------------------------*
  285. *     DelRtWord           * Delete spaces if Q is configured to...
  286. *                         * delete following white space...
  287. *                         * (Delete day, if your not using it)
  288. *     UnmarkBlock         * Un mark
  289. *     MarkWord
  290. * *------ Replace Month number with Name  -----------------------------*
  291. *     FindReplace"01" Return "January "   Return "LN" Return
  292. *     FindReplace"02" Return "February "  Return "LN" Return
  293. *     FindReplace"03" Return "March "     Return "LN" Return
  294. *     FindReplace"04" Return "April "     Return "LN" Return
  295. *     FindReplace"05" Return "May "       Return "LN" Return
  296. *     FindReplace"06" Return "June "      Return "LN" Return
  297. *     FindReplace"07" Return "July "      Return "LN" Return
  298. *     FindReplace"08" Return "August "    Return "LN" Return
  299. *     FindReplace"09" Return "September " Return "LN" Return
  300. *     FindReplace"10" Return "October "   Return "LN" Return
  301. *     FindReplace"11" Return "November "  Return "LN" Return
  302. *     FindReplace"12" Return "December "  Return "LN" Return
  303. *     GotoBlockEnd        * Go to the space after month
  304. *     UnmarkBlock         * Un mark
  305. *     Delch               * Delete hyphen
  306. * *------ Remove Zero in Day Number -----------------------------------*
  307. *     CursorLeft          * Ready for 2 character find...
  308. *     DropAnchor          * Mark 1st...
  309. *     CursorRight         * and second...
  310. *     DropAnchor          * characters
  311. *     GotoBlockBeg        * And go to block's start
  312. *     FindReplace " 0" Return " " Return "LN" Return  * Find a "0" and delete it
  313. *     GoToBlockEnd        * Go toward hyphen
  314. *     UnmarkBlock         * Un mark
  315. *     CursorRight         * And one character more
  316. *     Delch ", "          * Delete hyphen & add comma and space
  317. * *--------------------------------------------------------------------*
  318. *     MarkWord            * Mark the year
  319. *     GotoBlockEnd        * Go to the space after the year
  320. *     UnmarkBlock         * Un mark
  321. *     DelCh               * Delete 1 character at years end
  322. * *------- Delete after here if time not wanted -----------------------*
  323. * *   Time:  "12:36 pm ", not "12:36:18 "
  324. * * -------------------------------------------------------------------*
  325. *     AltWordSet          * Housekeeping - Turn back to DefaultWordSet ....
  326. *     " at "
  327. *     InsertTime          * Insert the time
  328. *     Backspace           * Backspaces...
  329. *     Backspace           * over...
  330. *     Backspace           * the...
  331. *     Backspace           * seconds
  332. *     CursorLeft          * Go to the end of time
  333. *     MarkWord            * Mark time
  334. *     GotoBlockBeg        * Go to the beginning of time
  335. *     UnmarkBlock         * Un mark
  336. *     CursorLeft          * And 1 character before time
  337. *     DropAnchor          * Mark the...
  338. *     CursorRight         * 1st 2 characters...
  339. *     DropAnchor          * of the hour
  340. *     CursorLeft          * See if it's a "0"  and delete it
  341. *     FindReplace " 0" Return " " Return "ln" Return JTrue am:
  342. *     GoToBlockEnd        * Otherwise, convert the hour
  343. *     UnmarkBlock         * Un mark the find block
  344. *     DropAnchor          * Mark...
  345. *     CursorLeft          * the...
  346. *     DropAnchor          * hour
  347. *     CursorLeft          * Go past 1st character
  348. *     *   Look for each 2 digit hour, 11 or less & go to "am"...
  349. *     FindReplace "10" Return "10" Return "ln" Return JTrue am:
  350. *     FindReplace "11" Return "11" Return "ln" Return JTrue am:
  351. *     * ...or convert it to the 12 hour clock
  352. *     FindReplace "13" Return "1"  Return "ln" Return
  353. *     FindReplace "14" Return "2"  Return "ln" Return
  354. *     FindReplace "15" Return "3"  Return "ln" Return
  355. *     FindReplace "16" Return "4"  Return "ln" Return
  356. *     FindReplace "17" Return "5"  Return "ln" Return
  357. *     FindReplace "18" Return "6"  Return "ln" Return
  358. *     FindReplace "19" Return "7"  Return "ln" Return
  359. *     FindReplace "20" Return "8"  Return "ln" Return
  360. *     FindReplace "21" Return "9"  Return "ln" Return
  361. *     FindReplace "22" Return "10" Return "ln" Return
  362. *     FindReplace "23" Return "11" Return "ln" Return
  363. *     Jump pm:            * ...and go to "pm"
  364. *   am:                   * Target
  365. *     GotoBlockEnd        * Get past time
  366. *     UnmarkBlock         * Un mark the find block
  367. *     MarkWord GotoBlockEnd UnmarkBlock   * Go to the end of time
  368. *     " am"               * Enter "am"
  369. *     Jump end:           * Quit
  370. *   pm:                   * Target
  371. *     GotoBlockEnd        * Get past time
  372. *     UnmarkBlock         * Un mark the find block
  373. *     MarkWord GotoBlockEnd UnmarkBlock   * Go to the end of time
  374. *     " pm"               * Enter "pm"
  375. *   end:                  * Quit target
  376. *     CursorRight         * Put the cursor where user wants it
  377. *     DefaultWordSet      * Put it back where it probably was
  378. * *
  379. * * 861 bytes, Sunday, April 7, 1991 at 12:41 am
  380. * * 861 bytes Thu  04-11-1991  15:59:52 check thh
  381. *
  382. * * Enjoy!
  383. *
  384. * * » Saturday, April 6, 1991 at 11:39 pm ■ .\\É£ ╟│u£se, Silicon Valley «
  385. * * ---
  386. * *  ■ SLMR 1.05 #356 ■ Reward for a job well done: more work.
  387. *
  388. * * PCRelay:COMPEASE -> #90 RelayNet (tm)
  389. * * 4.10                *Comp-U-Ease* CA. 408-286-8332  HST/V.32/VSM
  390.  
  391.  
  392. * ----------------------------------------------------------------------
  393. * @(4) Tom Hogshead,   Thursday, April 11, 1991 at 11:12 pm
  394. * ----------------------------------------------------------------------
  395. *
  396. * This macro is based on @5 above by Mel Hulse.
  397. *
  398. @4  MacroBegin          * Change @5 to key you want
  399.     UnmarkBlock         * Housekeeping
  400.     DefaultWordSet      *      "
  401. * ----------------------- insert name and date -----------------------*
  402.     "Tom Hogshead,"     **** change to your name ****
  403.     cursorright         *
  404.     cursorright         *
  405.     cursorright         *
  406.     InsertDate          * Places system date at the cursor position
  407.     PrevPosition        * Goto front of date string
  408. *------ vvvv If you don't want day spelled out, DELETE FROM HERE ----*
  409.     MarkWord            * Mark the abreviated day
  410. *------ Replace Day with spelled out name within the marked block----*
  411.     FindReplace"Mon" Return "Monday, "    Return "LN" Return *Jtrue Month:
  412.     FindReplace"Tue" Return "Tuesday, "   Return "LN" Return *Jtrue Month:
  413.     FindReplace"Wed" Return "Wednesday, " Return "LN" Return *Jtrue Month:
  414.     FindReplace"Thu" Return "Thursday, "  Return "LN" Return *Jtrue Month:
  415.     FindReplace"Fri" Return "Friday, "    Return "LN" Return *Jtrue Month:
  416.     FindReplace"Sat" Return "Saturday, "  Return "LN" Return *Jtrue Month:
  417.     FindReplace"Sun" Return "Sunday, "    Return "LN" Return
  418.   Month:                 * Target for jump
  419. *--------------------------------------------------------------------*
  420.     GotoBlockEnd        * Goto the 2 spaces after the day
  421. *------ ^^^^ TO HERE,  ----------------------------------------------*
  422.     DelRtWord           * Delete spaces if Q is configured to...
  423.                         * delete following white space...
  424.                         * (Delete day, if your not using it)
  425.     UnmarkBlock         * Un mark
  426.     MarkWord
  427. *------ Replace Month number with Name  -----------------------------*
  428.     FindReplace"01" Return "January "   Return "LN" Return
  429.     FindReplace"02" Return "February "  Return "LN" Return
  430.     FindReplace"03" Return "March "     Return "LN" Return
  431.     FindReplace"04" Return "April "     Return "LN" Return
  432.     FindReplace"05" Return "May "       Return "LN" Return
  433.     FindReplace"06" Return "June "      Return "LN" Return
  434.     FindReplace"07" Return "July "      Return "LN" Return
  435.     FindReplace"08" Return "August "    Return "LN" Return
  436.     FindReplace"09" Return "September " Return "LN" Return
  437.     FindReplace"10" Return "October "   Return "LN" Return
  438.     FindReplace"11" Return "November "  Return "LN" Return
  439.     FindReplace"12" Return "December "  Return "LN" Return
  440.     GotoBlockEnd        * Go to the space after month
  441.     UnmarkBlock         * Un mark
  442.     Delch               * Delete hyphen
  443. *------ Remove Zero in Day Number -----------------------------------*
  444.     CursorLeft          * Ready for 2 character find...
  445.     DropAnchor          * Mark 1st...
  446.     CursorRight         * and second...
  447.     DropAnchor          * characters
  448.     GotoBlockBeg        * And go to block's start
  449.     FindReplace " 0" Return " " Return "LN" Return  * Find a "0" and delete it
  450.     GoToBlockEnd        * Go toward hyphen
  451.     UnmarkBlock         * Un mark
  452.     CursorRight         * And one character more
  453.     Delch ", "          * Delete hyphen & add comma and space
  454. *--------------------------------------------------------------------*
  455.     MarkWord            * Mark the year
  456.     GotoBlockEnd        * Go to the space after the year
  457.     UnmarkBlock         * Un mark
  458.     DelCh               * Delete 1 character at years end
  459. *------- Delete after here if time not wanted -----------------------*
  460. *   Time:  "12:36 pm ", not "12:36:18 "
  461. * -------------------------------------------------------------------*
  462.     AltWordSet          * Housekeeping - Turn back to DefaultWordSet ....
  463.     " at "
  464.     InsertTime          * Insert the time
  465.     Backspace           * Backspaces...
  466.     Backspace           * over...
  467.     Backspace           * the...
  468.     Backspace           * seconds
  469.     CursorLeft          * Go to the end of time
  470.     MarkWord            * Mark time
  471.     GotoBlockBeg        * Go to the beginning of time
  472.     UnmarkBlock         * Un mark
  473.     CursorLeft          * And 1 character before time
  474.     DropAnchor          * Mark the...
  475.     CursorRight         * 1st 2 characters...
  476.     DropAnchor          * of the hour
  477.     CursorLeft          * See if it's a "0"  and delete it
  478.     FindReplace " 0" Return " " Return "ln" Return JTrue am:
  479.     GoToBlockEnd        * Otherwise, convert the hour
  480.     UnmarkBlock         * Un mark the find block
  481.     DropAnchor          * Mark...
  482.     CursorLeft          * the...
  483.     DropAnchor          * hour
  484.     CursorLeft          * Go past 1st character
  485.     *   Look for each 2 digit hour, 11 or less & go to "am"...
  486.     FindReplace "10" Return "10" Return "ln" Return JTrue am:
  487.     FindReplace "11" Return "11" Return "ln" Return JTrue am:
  488.     * ...or convert it to the 12 hour clock
  489.     FindReplace "13" Return "1"  Return "ln" Return
  490.     FindReplace "14" Return "2"  Return "ln" Return
  491.     FindReplace "15" Return "3"  Return "ln" Return
  492.     FindReplace "16" Return "4"  Return "ln" Return
  493.     FindReplace "17" Return "5"  Return "ln" Return
  494.     FindReplace "18" Return "6"  Return "ln" Return
  495.     FindReplace "19" Return "7"  Return "ln" Return
  496.     FindReplace "20" Return "8"  Return "ln" Return
  497.     FindReplace "21" Return "9"  Return "ln" Return
  498.     FindReplace "22" Return "10" Return "ln" Return
  499.     FindReplace "23" Return "11" Return "ln" Return
  500.     Jump pm:            * ...and go to "pm"
  501.   am:                   * Target
  502.     GotoBlockEnd        * Get past time
  503.     UnmarkBlock         * Un mark the find block
  504.     MarkWord GotoBlockEnd UnmarkBlock   * Go to the end of time
  505.     " am"               * Enter "am"
  506.     Jump end:           * Quit
  507.   pm:                   * Target
  508.     GotoBlockEnd        * Get past time
  509.     UnmarkBlock         * Un mark the find block
  510.     MarkWord GotoBlockEnd UnmarkBlock   * Go to the end of time
  511.     " pm"               * Enter "pm"
  512.   end:                  * Quit target
  513.     CursorRight         * Put the cursor where user wants it
  514.     DefaultWordSet      * Put it back where it probably was
  515. *
  516. * 861 bytes, Sunday, April 7, 1991 at 12:41 am  (@5 macro)
  517. * 890 bytes Thu  04-11-1991  23:13:32 added name
  518.  
  519.  
  520.  
  521. * ----------------------------------------------------------------------
  522. * @(h) Finds first word on cursor line marked in document below
  523. * ----------------------------------------------------------------------
  524. *
  525. * Press @ and h at the same time. Cursor down to desired line in Index.
  526. * Press <enter> to locate the desired item from the Index. See
  527. * Bookxx.Qm in AMACxx.Zip for more discussion.
  528. *
  529. @h macrobegin
  530.         begfile
  531.         unmarkblock
  532.         markline markline
  533.         pause
  534.         wordright
  535.         markword
  536.         copy
  537.         endpara
  538.         find "(" paste ")"  return return
  539.         begline
  540. *
  541. * 22 bytes Tue  04-09-1991  16:23:53
  542.  
  543.  
  544. * (Version) History
  545. *   1.0 - Initial
  546. *   1.1 - Internal
  547. *   1.2 - Changed @2 key to @3
  548. *       - Put 2 spaces after year in @1.
  549. *       - Added @2 for Standard Time '5:26 pm', not Military '17:26:37'
  550. *   1.3 - Shortened @1 33 bytes.
  551. *       - Added @5 by Mel Hulse.
  552. *       - Added @4 and @h.
  553. *   1.3a- Minor documentation changes.
  554. *
  555. *
  556. * Tom Hogshead,   Friday, July 12, 1991 at 10:26 am (entered with @4)
  557.